#!/usr/bin/env perl
use 5.10.0;
use strict;

#打印标尺
for (0..5) {
    for (0..9) {
        print $_;
    }
}
#用户输入分行键入数据；
#以20个字符宽，向右对齐，输出数据；
chomp(my @array = <STDIN>);

foreach (@array) {
    printf "%20s\n", $_;
}


